home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / main.dir / 00004_Script_4 < prev    next >
Text File  |  1999-03-01  |  2KB  |  75 lines
  1.  
  2. global Clickers
  3. global gScroll
  4.  
  5. --hard coded for back button -kl
  6. on enterframe me
  7.   
  8.   set doMe = getAt(Clickers, 28)
  9.   
  10.   if the pShadowOn of doMe = TRUE then
  11.     set the member of sprite(the pAnimSpr of doMe) to ¼
  12.       member (the pShadSpr of doMe)    
  13.   end if
  14.   updatestage  
  15. end 
  16.  
  17.  
  18. on mouseDown me
  19.   
  20.   set doMe = getAt(Clickers, 28)
  21.   set the pShadowOn of doMe = TRUE
  22.   
  23.   if the pShadowOn of doMe = TRUE then
  24.     set the member of sprite(the pAnimSpr of doMe) to ¼
  25.       member (the pShadSpr of doMe)    
  26.     updatestage
  27.   end if  
  28.   
  29.   repeat with a = 1 to count(gScroll)
  30.     ReturnLoc getAt(gScroll, a)
  31.   end repeat
  32.   
  33.   
  34.   go to the frame +1
  35.   
  36. end
  37.  
  38.  
  39. on mouseWithin me
  40.   
  41.   set doMe = getAt(clickers, 28)
  42.   -- position the shadow sprite here  
  43.   set the member of sprite(the pAnimSpr of doMe) to ¼
  44.       member (the pShadSpr of doMe)  
  45.   updatestage
  46.   
  47. end
  48.  
  49. on mouseLeave me
  50.   
  51.   set doMe = getAt(clickers, 28)
  52.   -- remove the shadow sprite here
  53.   
  54.   set the member of sprite(the pAnimSpr of doMe) to ¼
  55.       member (the pShadSpr of doMe)    
  56.   updatestage
  57.   
  58.   if the pShadowOn of doMe = FALSE then
  59.     set the member of sprite(the pAnimSpr of doMe) to ¼
  60.       member (the pStartSpr of doMe)    
  61.     updatestage
  62.   end if
  63.   
  64. end
  65.  
  66.  
  67. --on getPropertyDescriptionList
  68. --  set p_list = [¼
  69. --    #WhichListPos: [ #comment:  "List Position:",¼
  70. --                      #format:  #integer,¼
  71. --                     #default: 1]]
  72. --  
  73. --  return p_list
  74. --end
  75.